home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / biz / dopus / WolleDOpus.lha / wolledopus / c / FT < prev    next >
Text File  |  1997-10-20  |  1KB  |  55 lines
  1. /*
  2. $VER: FT 0.98 (20.10.1997) © Marco Wollkopf
  3. E-Mail: Marco.Wollkopf@t-online.de
  4. Homepage: http://home.t-online.de/home/Marco.Wollkopf
  5. */
  6.  
  7. signal on error
  8. options results
  9.  
  10. /*-- Port holen --*/
  11. if show("p","DOPUS.1") then
  12.    address DOPUS.1
  13. else do
  14.    say "DirectoryOpus Port nicht gefunden"
  15.    exit
  16. end
  17.  
  18. /*-- Parser --*/
  19. parse arg file
  20. file=strip(strip(file,'b','"'),'b',' ')
  21.  
  22. if file~="" then do
  23.    if file="?" then do
  24.       call error
  25.    end
  26.    else do
  27.       file= '"'||file||'"'
  28.       dopus getfiletype file
  29.       if result="" then 
  30.          call error2
  31.       else
  32.          say result
  33.       exit
  34.    end
  35. end   
  36. else
  37.    call error
  38. end
  39. exit
  40.  
  41. /*-- Fehler --*/
  42. error:
  43.   SAY "FT (FileType) V0.98, Teil des WolleDOpus Paketes"||D2C(10)||"ermittelt Dateityp der angewählten Datei"||D2C(10)||"Copyright © 1997 Marco Wollkopf"
  44.   SAY D2C(10)||"Optionen: FILE/A"
  45.   SAY D2C(10)||"FILE: Datei, deren Typ ermittelt werden soll"
  46.   SAY D2C(10)||"Hilfe mit ?"
  47. exit
  48. return
  49.  
  50. error2:
  51.    say "DOpus kann den Dateityp nicht erkennen"
  52.    call error
  53. exit
  54. return
  55.